home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_0799 / 425 / diff1719.zoo / diff1719.txt
Encoding:
Text File  |  1993-08-16  |  57.5 KB  |  2,273 lines
  1. *** 1.7    1993/06/25 21:14:36
  2. --- changes    1993/08/16 23:11:16
  3. ***************
  4. *** 1,6 ****
  5. --- 1,56 ----
  6.   Changes are listed in *reverse* order, most recent changes being
  7.   first.
  8.   
  9. + version 1.09
  10. + 
  11. + biosfs.c:
  12. +     Implement file locking for BIOS devices.
  13. + dosmem.c:
  14. +     Fix the Pexec(200,...) bug (trying to save the command line
  15. +     image must be done *before* the existing program's memory
  16. +     is freed).
  17. + nalloc2.c,util.c:
  18. +     Allow kmalloc()'d memory to be returned to the OS, if possible.
  19. + xbios.c:
  20. +     Dosound() can be called with a negative number as its parameter,
  21. +     in which case it is only an inquiry function.
  22. + 
  23. + version 1.08
  24. + 
  25. + dosfile.c,dosdir.c,filesys.c:
  26. +     Made the file and directory operations re-entrant, by replacing
  27. +     the global variable "temp1" with local variables (where needed).
  28. + dosdir.c,filesys.c: ++schwab@ls5.informatik.uni-dortmund.de
  29. +     Cleaned up the directory closing functions.
  30. + dosmem.c: ++schwab@ls5.informatik.uni-dortmund.de
  31. +     Fixed a bug in do_vfork (the child's PROC structure could be
  32. +     freed when signals are checked for, and the old code wasn't
  33. +     prepared for that).
  34. + purec\*.*: ++reschke@math.uni-muenster.de
  35. +     Updated for the new version of MiNT.
  36. + *.*: ++alex@falcon.demon.co.uk
  37. +     Lots of fixes to get rid of warnings and some small optimizations.
  38. + dosmem.c,procfs.c: ++reschke@math.uni-muenster.de
  39. +     In Pexec, save the name and arguments a process was started with
  40. +     into the PROC structure, so that they can be recovered at run time.
  41. + filesys.c,main.c,unifs.c: ++Ulrich Kuehn
  42. +     At boot time, load files called *.xdd which contain external
  43. +     device drivers.
  44. +     Also, provide Dcntl calls for drive U: to allow installing and
  45. +     de-installing file systems at run time.
  46. + bios.c: ++nox@jelal.north.de
  47. +     Only busy-wait for the parallel port, not for serial ports.
  48. + unifs.c: ++schwab@ls5.informatik.uni-dortmund.de
  49. +     Pass Dcntl commands along to file systems.
  50. + signal.c: ++schwab@ls5.informatik.uni-dortmund.de
  51. +     Make Fselect interruptable.
  52. + procfs.c: ++schwab@ls5.informatik.uni-dortmund.de
  53. +     Check for illegal signal numbers in ioctl(PTRACEGO,...).
  54. + dosdir.c:
  55. +     Fattrib should have been following links.
  56. + *.spp: ++Claus Brod and Uwe Seimet
  57. +     Various optimizations
  58. + 
  59.   version 1.07
  60.   
  61.   debug.c: ++reschke@math.uni-muenster.de
  62. *** 1.7    1993/06/25 21:14:36
  63. --- makefile.lcc    1993/08/10 20:49:24
  64. ***************
  65. *** 42,47 ****
  66. --- 42,48 ----
  67.   DEFS030 = -DONLY030 -DDEBUG_INFO
  68.   
  69.   SYMS = -Hmint.sym
  70. + SYMS030 = -Hmint030.sym
  71.   
  72.   # 30    - pointers do not point to same type of object
  73.   # 86    - formal definitions conflict with type list
  74. ***************
  75. *** 52,64 ****
  76.   # 159    - use of unary minus on unsigned value
  77.   ERRORS = -j30e86e100e104e135i154e159i
  78.   
  79. ! OPTS = -d1 -Oloop -v -cfsb -cag
  80.   ASOPTS = -ma -m8 -d -.
  81.   COPTS = $(OPTS) $(MODEL) $(ERRORS) $(DEFS)
  82.   CFLAGS = $(COPTS) $(SYMS)
  83.   ASFLAGS = $(ASOPTS) $(DEFS)
  84.   COPTS030 = $(OPTS) $(MODEL030) $(ERRORS) $(DEFS030)
  85. ! CFLAGS030 = $(COPTS030) $(SYMS)
  86.   ASFLAGS030 = -m3 $(ASOPTS) $(DEFS030)
  87.   
  88.   LDFLAGS = -t=
  89. --- 53,65 ----
  90.   # 159    - use of unary minus on unsigned value
  91.   ERRORS = -j30e86e100e104e135i154e159i
  92.   
  93. ! OPTS = -d1 -Oloop -v -cfsb -cag -e
  94.   ASOPTS = -ma -m8 -d -.
  95.   COPTS = $(OPTS) $(MODEL) $(ERRORS) $(DEFS)
  96.   CFLAGS = $(COPTS) $(SYMS)
  97.   ASFLAGS = $(ASOPTS) $(DEFS)
  98.   COPTS030 = $(OPTS) $(MODEL030) $(ERRORS) $(DEFS030)
  99. ! CFLAGS030 = $(COPTS030) $(SYMS030)
  100.   ASFLAGS030 = -m3 $(ASOPTS) $(DEFS030)
  101.   
  102.   LDFLAGS = -t=
  103. ***************
  104. *** 66,72 ****
  105.   COBJS = main.o bios.o xbios.o console.o dos.o dosdir.o dosfile.o dosmem.o \
  106.       dossig.o filesys.o mem.o proc.o signal.o timeout.o tty.o util.o \
  107.       biosfs.o pipefs.o procfs.o tosfs.o debug.o rendez.o \
  108. !     unifs.o shmfs.o fasttext.o welcome.o nalloc2.o memprot.o0 realloc.o
  109.   
  110.   COBJS030 = main.o0 bios.o0 xbios.o0 console.o0 dos.o0 dosdir.o0 dosfile.o0 dosmem.o0 \
  111.       dossig.o0 filesys.o0 mem.o0 proc.o0 signal.o0 timeout.o0 tty.o0 util.o0 \
  112. --- 67,73 ----
  113.   COBJS = main.o bios.o xbios.o console.o dos.o dosdir.o dosfile.o dosmem.o \
  114.       dossig.o filesys.o mem.o proc.o signal.o timeout.o tty.o util.o \
  115.       biosfs.o pipefs.o procfs.o tosfs.o debug.o rendez.o \
  116. !     unifs.o shmfs.o fasttext.o welcome.o nalloc2.o memprot.o realloc.o
  117.   
  118.   COBJS030 = main.o0 bios.o0 xbios.o0 console.o0 dos.o0 dosdir.o0 dosfile.o0 dosmem.o0 \
  119.       dossig.o0 filesys.o0 mem.o0 proc.o0 signal.o0 timeout.o0 tty.o0 util.o0 \
  120. ***************
  121. *** 87,107 ****
  122.   all: mint.prg mint030.prg
  123.   
  124.   mint.prg: $(OBJS)
  125. !     $(CC) $(CFLAGS) -o mint.prg $(LDFLAGS) $(OBJS) $(LIBS)
  126.   
  127.   mint030.prg: $(OBJS030)
  128. !     $(CC) $(CFLAGS030) -o mint030.prg $(LDFLAGS) $(OBJS030) $(LIBS)
  129.   
  130.   $(SOBJS) $(SOBJS030): proc.h
  131. ! $(COBJS) $(COBJS030): mint.sym
  132.   
  133.   main.o: version.h
  134.   welcome.o: version.h
  135.   bios.o: inline.h
  136.   
  137. ! mint.sym: mint.h ctype.h assert.h atarierr.h basepage.h types.h \
  138.       signal.h mem.h proc.h file.h sproto.h proto.h inline.h
  139. !     $(CC) $(COPTS) -ph -o mint.sym mint.h
  140.   
  141.   #
  142.   # assembler source files are now handled in a radically different
  143. --- 88,121 ----
  144.   all: mint.prg mint030.prg
  145.   
  146.   mint.prg: $(OBJS)
  147. !     $(CC) $(CFLAGS) -omint.prg $(LDFLAGS) $(OBJS) $(LIBS)
  148.   
  149.   mint030.prg: $(OBJS030)
  150. !     $(CC) $(CFLAGS030) -omint030.prg $(LDFLAGS) $(OBJS030) $(LIBS)
  151.   
  152.   $(SOBJS) $(SOBJS030): proc.h
  153. ! $(COBJS): mint.sym
  154. ! $(COBJS030): mint030.sym
  155.   
  156.   main.o: version.h
  157.   welcome.o: version.h
  158.   bios.o: inline.h
  159.   
  160. ! memprot.o: memprot.c
  161. !     $(CC) -c $(CFLAGS) -m3 -omemprot.o memprot.c
  162. ! 
  163. ! main.o0: version.h
  164. ! welcome.o0: version.h
  165. ! bios.o0: inline.h
  166. ! 
  167. ! mint.sym mint030.sym: mint.h ctype.h assert.h atarierr.h basepage.h types.h \
  168.       signal.h mem.h proc.h file.h sproto.h proto.h inline.h
  169. ! 
  170. ! mint.sym:
  171. !     $(CC) $(COPTS) -ph -omint.sym mint.h
  172. ! 
  173. ! mint030.sym:
  174. !     $(CC) $(COPTS030) -ph -omint030.sym mint.h
  175.   
  176.   #
  177.   # assembler source files are now handled in a radically different
  178. ***************
  179. *** 184,202 ****
  180.   .c.o0:
  181.       $(CC) -c $(CFLAGS030) -o$@ $<
  182.   
  183. ! context.o: context.spp magic.i $(ATRANS)
  184. ! intr.o: intr.spp magic.i $(ATRANS)
  185. ! syscall.o: syscall.spp magic.i $(ATRANS)
  186. ! quickzer.o: quickzer.spp $(ATRANS)
  187. ! quickmov.o: quickmov.spp $(ATRANS)
  188. ! cpu.o: cpu.spp $(ATRANS)
  189. ! 
  190. ! context.o0: context.spp magic.i $(ATRANS)
  191. ! intr.o0: intr.spp magic.i $(ATRANS)
  192. ! syscall.o0: syscall.spp magic.i $(ATRANS)
  193. ! quickzer.o0: quickzer.spp $(ATRANS)
  194. ! quickmov.o0: quickmov.spp $(ATRANS)
  195. ! cpu.o0: cpu.spp $(ATRANS)
  196.   
  197.   #
  198.   # mkptypes generates prototypes from C source code. If you don't have it,
  199. --- 198,209 ----
  200.   .c.o0:
  201.       $(CC) -c $(CFLAGS030) -o$@ $<
  202.   
  203. ! context.o context.o0: context.spp magic.i $(ATRANS)
  204. ! intr.o intr.o0: intr.spp magic.i $(ATRANS)
  205. ! syscall.o syscall.o0: syscall.spp magic.i $(ATRANS)
  206. ! quickzer.o quickzer.o0: quickzer.spp $(ATRANS)
  207. ! quickmov.o quickmov.o0: quickmov.spp $(ATRANS)
  208. ! cpu.o cpu.o0: cpu.spp $(ATRANS)
  209.   
  210.   #
  211.   # mkptypes generates prototypes from C source code. If you don't have it,
  212. ***************
  213. *** 217,223 ****
  214.   #
  215.   GENFILES= $(OBJS) $(OBJS030) $(ATRANSOBJ) $(ATRANS) $(GENMAGICPRG) \
  216.       $(YTABC) $(YTABH) magic.i __asm.o genmagic.o
  217. ! EXTRAS= asmtab.c asmtab.h mint.prg mint030.prg mint.sym
  218.   
  219.   clean:
  220.       $(RM) -f $(GENFILES)
  221. --- 224,230 ----
  222.   #
  223.   GENFILES= $(OBJS) $(OBJS030) $(ATRANSOBJ) $(ATRANS) $(GENMAGICPRG) \
  224.       $(YTABC) $(YTABH) magic.i __asm.o genmagic.o
  225. ! EXTRAS= asmtab.c asmtab.h mint.prg mint030.prg mint.sym mint030.sym
  226.   
  227.   clean:
  228.       $(RM) -f $(GENFILES)
  229. *** 1.7    1993/06/25 21:14:36
  230. --- bios.c    1993/08/10 20:47:18
  231. ***************
  232. *** 253,267 ****
  233.           statdev = dev;
  234.       }
  235.   
  236. ! /* provide a 10 second time out */
  237.       if (!BCOSTAT(statdev)) {
  238. !         endtime = curtime + 10*200L;
  239. !         do {
  240.   #if 0
  241. !             yield();
  242.   #endif
  243. !         } while (!BCOSTAT(statdev) && curtime < endtime);
  244. !         if ( curtime >= endtime) return 0;
  245.       }
  246.   
  247.   /* special case: many text accelerators return a bad value from
  248. --- 253,279 ----
  249.           statdev = dev;
  250.       }
  251.   
  252. ! /* provide a 10 second time out for the printer */
  253.       if (!BCOSTAT(statdev)) {
  254. !         if (dev != PRNDEV) {
  255. !             do {
  256. !     /* BUG: Speedo GDOS isn't re-entrant; so printer output to the
  257. !      * serial port could cause problems
  258. !      */
  259. !                 yield();
  260. !             } while (!BCOSTAT(statdev));
  261. !         } else {
  262. !             endtime = curtime + 10*200L;
  263. !             do {
  264.   #if 0
  265. !     /* Speedo GDOS isn't re-entrant, so we can't give up CPU
  266. !      * time here :-(
  267. !      */
  268. !                 yield();
  269.   #endif
  270. !             } while (!BCOSTAT(statdev) && curtime < endtime);
  271. !             if ( curtime >= endtime) return 0;
  272. !         }
  273.       }
  274.   
  275.   /* special case: many text accelerators return a bad value from
  276. *** 1.7    1993/06/25 21:14:36
  277. --- biosfs.c    1993/08/16 23:10:54
  278. ***************
  279. *** 1,5 ****
  280.   /*
  281. ! Copyright 1991,1992 Eric R. Smith. All rights reserved.
  282.    */
  283.   
  284.   /* simple biosfs.c */
  285. --- 1,7 ----
  286.   /*
  287. ! Copyright 1991,1992 Eric R. Smith.
  288. ! Copyright 1993 Atari Corporation.
  289. ! All rights reserved.
  290.    */
  291.   
  292.   /* simple biosfs.c */
  293. ***************
  294. *** 39,44 ****
  295. --- 41,47 ----
  296.   static long    ARGS_ON_STACK bios_select    P_((FILEPTR *f, long p, int mode));
  297.   static void    ARGS_ON_STACK bios_unselect    P_((FILEPTR *f, long p, int mode));
  298.   static long    ARGS_ON_STACK bios_tseek    P_((FILEPTR *f, long where, int whence));
  299. + static long    ARGS_ON_STACK bios_close    P_((FILEPTR *f, int pid));
  300.   
  301.   long    ARGS_ON_STACK null_open    P_((FILEPTR *f));
  302.   long    ARGS_ON_STACK null_write    P_((FILEPTR *f, const char *buf, long bytes));
  303. ***************
  304. *** 61,67 ****
  305.   
  306.   DEVDRV bios_tdevice = {
  307.       bios_topen, bios_twrite, bios_tread, bios_tseek, bios_ioctl,
  308. !     null_datime, null_close, bios_select, bios_unselect
  309.   };
  310.   
  311.   /* device driver for BIOS devices that are not terminals */
  312. --- 64,70 ----
  313.   
  314.   DEVDRV bios_tdevice = {
  315.       bios_topen, bios_twrite, bios_tread, bios_tseek, bios_ioctl,
  316. !     null_datime, bios_close, bios_select, bios_unselect
  317.   };
  318.   
  319.   /* device driver for BIOS devices that are not terminals */
  320. ***************
  321. *** 68,74 ****
  322.   
  323.   DEVDRV bios_ndevice = {
  324.       null_open, bios_nwrite, bios_nread, null_lseek, bios_ioctl,
  325. !     null_datime, null_close, bios_select, bios_unselect
  326.   };
  327.   
  328.   DEVDRV null_device = {
  329. --- 71,77 ----
  330.   
  331.   DEVDRV bios_ndevice = {
  332.       null_open, bios_nwrite, bios_nread, null_lseek, bios_ioctl,
  333. !     null_datime, bios_close, bios_select, bios_unselect
  334.   };
  335.   
  336.   DEVDRV null_device = {
  337. ***************
  338. *** 115,120 ****
  339. --- 118,124 ----
  340.       ushort    flags;            /* flags for device open */
  341.       struct tty *tty;        /* tty structure (if appropriate) */
  342.       struct bios_file *next;
  343. +     short    lockpid;        /* owner of the lock */
  344.   };
  345.   
  346.   struct bios_file BDEV[] = {
  347. ***************
  348. *** 1022,1027 ****
  349. --- 1026,1032 ----
  350.       char *aline;
  351.       short dev;
  352.       int i;
  353. +     struct bios_file *b;
  354.   
  355.       if (mode == FIONREAD) {
  356.           if (bconstat(f->fc.aux))
  357. ***************
  358. *** 1162,1169 ****
  359.           } else {
  360.               return EINVFN;
  361.           }
  362. !     } else if ((mode >= TCURSOFF && mode <= TCURSGRATE) && (f->fc.aux == 2)) {
  363. !         return Cursconf(mode - TCURSOFF, *((short *)buf));
  364.       } else {
  365.       /* Fcntl will automatically call tty_ioctl to handle
  366.        * terminal calls that we didn't deal with
  367. --- 1167,1218 ----
  368.           } else {
  369.               return EINVFN;
  370.           }
  371. !     } else if ((mode >= TCURSOFF && mode <= TCURSSTEADY) && (f->fc.aux == 2)) {
  372. !         return Cursconf(mode - TCURSOFF, 0);
  373. !     } else if ((mode >= TCURSSRATE && mode <= TCURSGRATE) && (f->fc.aux == 2)) {
  374. !         long r;
  375. ! 
  376. !         r = Cursconf(mode - TCURSOFF, *((short *)buf));
  377. !         if (r >= 0) {
  378. !             *(short *)buf = r;
  379. !             r = 0;
  380. !         }
  381. !         return r;
  382. !     } else if (mode == F_SETLK || mode == F_SETLKW) {
  383. !         struct flock *lck = (struct flock *)buf;
  384. ! 
  385. !         b = (struct bios_file *)f->fc.index;
  386. !         while (b->lockpid && b->lockpid != curproc->pid) {
  387. !             if (mode == F_SETLKW && lck->l_type != F_UNLCK)
  388. !                 sleep(IO_Q, (long)b);
  389. !             else
  390. !                 return ELOCKED;
  391. !         }
  392. !         if (lck->l_type == F_UNLCK) {
  393. !             if (!(f->flags & O_LOCK)) {
  394. !                 DEBUG(("bios_ioctl: wrong file descriptor for UNLCK"));
  395. !                 return ENSLOCK;
  396. !             }
  397. !             if (b->lockpid != curproc->pid)
  398. !                 return ENSLOCK;
  399. !             b->lockpid = 0;
  400. !             f->flags &= ~O_LOCK;
  401. !             wake(IO_Q, (long)b);    /* wake anyone waiting for this lock */
  402. !         } else {
  403. !             b->lockpid = curproc->pid;
  404. !             f->flags |= O_LOCK;
  405. !         }
  406. !     } else if (mode == F_GETLK) {
  407. !         struct flock *lck = (struct flock *)buf;
  408. ! 
  409. !         b = (struct bios_file *)f->fc.index;
  410. !         if (b->lockpid) {
  411. !             lck->l_type = F_WRLCK;
  412. !             lck->l_start = lck->l_len = 0;
  413. !             lck->l_pid = b->lockpid;
  414. !         } else {
  415. !             lck->l_type = F_UNLCK;
  416. !         }
  417.       } else {
  418.       /* Fcntl will automatically call tty_ioctl to handle
  419.        * terminal calls that we didn't deal with
  420. ***************
  421. *** 1220,1225 ****
  422. --- 1269,1288 ----
  423.           else if (mode == O_WRONLY && tty->wsel == p)
  424.               tty->wsel = 0;
  425.       }
  426. + }
  427. + 
  428. + static long ARGS_ON_STACK 
  429. + bios_close(f, pid)
  430. +     FILEPTR *f;
  431. +     int pid;
  432. + {
  433. +     struct bios_file *b;
  434. + 
  435. +     b = (struct bios_file *)f->fc.index;
  436. +     if ((f->flags & O_LOCK) && (b->lockpid == pid)) {
  437. +         b->lockpid = 0;
  438. +     }
  439. +     return 0;
  440.   }
  441.   
  442.   /*
  443. *** 1.7    1993/06/25 21:14:36
  444. --- debug.c    1993/08/13 18:41:26
  445. ***************
  446. *** 517,523 ****
  447.   }
  448.   
  449.   
  450. ! static char *rebootmsg[MAXLANG] = {
  451.   "FATAL ERROR. You must reboot the system.\r\n",
  452.   "FATALER FEHLER. Das System muß neu gestartet werden.\r\n",    /* German */
  453.   "FATAL ERROR. You must reboot the system.\r\n",        /* French */
  454. --- 517,523 ----
  455.   }
  456.   
  457.   
  458. ! static const char *rebootmsg[MAXLANG] = {
  459.   "FATAL ERROR. You must reboot the system.\r\n",
  460.   "FATALER FEHLER. Das System muß neu gestartet werden.\r\n",    /* German */
  461.   "FATAL ERROR. You must reboot the system.\r\n",        /* French */
  462. ***************
  463. *** 608,616 ****
  464.           out_device = 2;
  465.           break;
  466.       case 0x3f:        /* F5: dump memory */
  467. !         DUMPMEM(ker);
  468. !         DUMPMEM(core);
  469. !         DUMPMEM(alt);
  470.           break;
  471.       case 0x40:        /* F6: dump processes */
  472.           DUMPPROC();
  473. --- 608,617 ----
  474.           out_device = 2;
  475.           break;
  476.       case 0x3f:        /* F5: dump memory */
  477. !         DUMP_ALL_MEM();
  478. !         break;
  479. !     case 0x58:        /* shift+F5: dump kernel allocated memory */
  480. !         NALLOC_DUMP();
  481.           break;
  482.       case 0x40:        /* F6: dump processes */
  483.           DUMPPROC();
  484. *** 1.7    1993/06/25 21:14:36
  485. --- dosdir.c    1993/08/10 20:48:14
  486. ***************
  487. *** 99,110 ****
  488.       return (*dir->fs->dfree)(dir, buf);
  489.   }
  490.   
  491. - /* temp1 is a convenient place for path2fs puts the last component of
  492. -  *   the path name
  493. -  */
  494. - 
  495. - extern char temp1[PATH_MAX];    /* in filesys.c */
  496. - 
  497.   long ARGS_ON_STACK
  498.   d_create(path)
  499.       const char *path;
  500. --- 99,104 ----
  501. ***************
  502. *** 111,116 ****
  503. --- 105,111 ----
  504.   {
  505.       fcookie dir;
  506.       long r;
  507. +     char temp1[PATH_MAX];
  508.   
  509.       TRACE(("Dcreate(%s)", path));
  510.   
  511. ***************
  512. *** 140,145 ****
  513. --- 135,141 ----
  514.       PROC *p;
  515.       int i;
  516.       XATTR xattr;
  517. +     char temp1[PATH_MAX];
  518.   
  519.       TRACE(("Ddelete(%s)", path));
  520.   
  521. ***************
  522. *** 365,370 ****
  523. --- 361,367 ----
  524.       XATTR xattr;
  525.       long r;
  526.       int i, havelabel;
  527. +     char temp1[PATH_MAX];
  528.   
  529.       TRACE(("Fsfirst(%s, %x)", path, attrib));
  530.   
  531. ***************
  532. *** 567,573 ****
  533.   long ARGS_ON_STACK
  534.   f_snext()
  535.   {
  536. !     static char buf[TOS_NAMELEN+1];
  537.       DTABUF *dta = curproc->dta;
  538.       FILESYS *fs;
  539.       fcookie fc;
  540. --- 564,570 ----
  541.   long ARGS_ON_STACK
  542.   f_snext()
  543.   {
  544. !     char buf[TOS_NAMELEN+1];
  545.       DTABUF *dta = curproc->dta;
  546.       FILESYS *fs;
  547.       fcookie fc;
  548. ***************
  549. *** 684,690 ****
  550.   
  551.       TRACE(("Fattrib(%s, %d)", name, attr));
  552.   
  553. !     r = path2cookie(name, (char *)0, &fc);
  554.   
  555.       if (r) {
  556.           DEBUG(("Fattrib(%s): error %ld", name, r));
  557. --- 681,687 ----
  558.   
  559.       TRACE(("Fattrib(%s, %d)", name, attr));
  560.   
  561. !     r = path2cookie(name, follow_links, &fc);
  562.   
  563.       if (r) {
  564.           DEBUG(("Fattrib(%s): error %ld", name, r));
  565. ***************
  566. *** 727,732 ****
  567. --- 724,730 ----
  568.   {
  569.       fcookie dir;
  570.       long r;
  571. +     char temp1[PATH_MAX];
  572.   
  573.       TRACE(("Fdelete(%s)", name));
  574.   
  575. ***************
  576. *** 756,762 ****
  577.   {
  578.       fcookie olddir, newdir, oldfil;
  579.       XATTR xattr;
  580. !     char temp2[PATH_MAX];
  581.       long r;
  582.   
  583.       UNUSED(junk);
  584. --- 754,760 ----
  585.   {
  586.       fcookie olddir, newdir, oldfil;
  587.       XATTR xattr;
  588. !     char temp1[PATH_MAX], temp2[PATH_MAX];
  589.       long r;
  590.   
  591.       UNUSED(junk);
  592. ***************
  593. *** 954,961 ****
  594.       DIR *dirh = (DIR *)handle;
  595.       DIR **where;
  596.   
  597. -     if (!dirh->fc.fs)
  598. -         return EIHNDL;
  599.       where = &curproc->searches;
  600.       while (*where && *where != dirh) {
  601.           where = &((*where)->next);
  602. --- 952,957 ----
  603. ***************
  604. *** 968,976 ****
  605.   /* unlink the directory from the chain */
  606.       *where = dirh->next;
  607.   
  608. !     r = (*dirh->fc.fs->closedir)(dirh);
  609. !     release_cookie(&dirh->fc);
  610. !     dirh->fc.fs = 0;
  611.   
  612.       if (r) {
  613.           DEBUG(("Dclosedir: error %ld", r));
  614. --- 964,975 ----
  615.   /* unlink the directory from the chain */
  616.       *where = dirh->next;
  617.   
  618. !     if (dirh->fc.fs) {
  619. !         r = (*dirh->fc.fs->closedir)(dirh);
  620. !         release_cookie(&dirh->fc);
  621. !     } else {
  622. !         r = 0;
  623. !     }
  624.   
  625.       if (r) {
  626.           DEBUG(("Dclosedir: error %ld", r));
  627. ***************
  628. *** 1019,1025 ****
  629.       const char *old, *new;
  630.   {
  631.       fcookie olddir, newdir;
  632. !     char temp2[PATH_MAX];
  633.       long r;
  634.   
  635.       TRACE(("Flink(%s, %s)", old, new));
  636. --- 1018,1024 ----
  637.       const char *old, *new;
  638.   {
  639.       fcookie olddir, newdir;
  640. !     char temp1[PATH_MAX], temp2[PATH_MAX];
  641.       long r;
  642.   
  643.       TRACE(("Flink(%s, %s)", old, new));
  644. ***************
  645. *** 1066,1071 ****
  646. --- 1065,1071 ----
  647.   {
  648.       fcookie newdir;
  649.       long r;
  650. +     char temp1[PATH_MAX];
  651.   
  652.       TRACE(("Fsymlink(%s, %s)", old, new));
  653.   
  654. ***************
  655. *** 1131,1136 ****
  656. --- 1131,1137 ----
  657.   {
  658.       fcookie dir;
  659.       long r;
  660. +     char temp1[PATH_MAX];
  661.   
  662.       TRACE(("Dcntl(cmd=%x, file=%s, arg=%lx)", cmd, name, arg));
  663.   
  664. *** 1.7    1993/06/25 21:14:36
  665. --- dosfile.c    1993/08/10 20:48:20
  666. ***************
  667. *** 8,15 ****
  668.   
  669.   #include "mint.h"
  670.   
  671. - extern char temp1[];    /* see filesys.c */
  672. - 
  673.   static long do_dup P_((int,int));
  674.   static void unselectme P_((PROC *));
  675.   
  676. --- 8,13 ----
  677. ***************
  678. *** 33,38 ****
  679. --- 31,37 ----
  680.       XATTR xattr;
  681.       unsigned perm;
  682.       int creating;
  683. +     char temp1[PATH_MAX];
  684.       extern FILESYS proc_filesys;
  685.   
  686.   /* for special BIOS "fake" devices */
  687. ***************
  688. *** 381,386 ****
  689. --- 380,386 ----
  690.       long r;
  691.       PROC *proc;
  692.       int offset = 0;
  693. +     char temp1[PATH_MAX];
  694.   
  695.       TRACE(("Fcreate(%s, %x)", name, attrib));
  696.   #if O_GLOBAL
  697. *** 1.7    1993/06/25 21:14:36
  698. --- dosmem.c    1993/08/16 18:28:26
  699. ***************
  700. *** 13,18 ****
  701. --- 13,20 ----
  702.   
  703.   #include "mint.h"
  704.   
  705. + #define DIRSEP(c) ((c) == '\\')
  706. + 
  707.   int procdate, proctime;    /* set when any processes are created/destroyed */
  708.   
  709.   static long do_vfork P_((int));
  710. ***************
  711. *** 313,321 ****
  712. --- 315,325 ----
  713.       XATTR xattr;
  714.       int newpid;
  715.   
  716. + #ifdef DEBUG_INFO
  717.   /* tfmt and tail_offs are used for debugging only */
  718.       const char *tfmt = "Pexec(%d,%s,\"%s\",%lx)";
  719.       int tail_offs = 1;
  720. + #endif
  721.   
  722.   /* the high bit of mode controls process tracing */
  723.       switch(mode & 0x7fff) {
  724. ***************
  725. *** 338,345 ****
  726. --- 342,351 ----
  727.       case 4:
  728.           mkwait = mkgo = 1;
  729.           thread = (mode == 4);
  730. + #ifdef DEBUG_INFO
  731.           tfmt = "Pexec(%d,%lx,BP:%lx,%lx)";
  732.           tail_offs = 0;
  733. + #endif
  734.           break;
  735.       case 106:
  736.           mkfree = 1;        /* fall through */
  737. ***************
  738. *** 347,354 ****
  739. --- 353,362 ----
  740.           thread = (mode == 104);
  741.           mkgo = 1;
  742.           mkname = (ptr1 != 0);
  743. + #ifdef DEBUG_INFO
  744.           tfmt = "Pexec(%d,%s,BP:%lx,%lx)";
  745.           tail_offs = 0;
  746. + #endif
  747.           break;
  748.       case 206:
  749.   #if 0
  750. ***************
  751. *** 363,370 ****
  752. --- 371,380 ----
  753.       case 204:
  754.           mkgo = overlay = 1;
  755.           mkname = (ptr1 != 0);
  756. + #ifdef DEBUG_INFO
  757.           tfmt = "Pexec(%d,%s,BP:%lx,%lx)";
  758.           tail_offs = 0;
  759. + #endif
  760.           break;
  761.       case 7:
  762.           flags = (long)ptr1;    /* set program flags */
  763. ***************
  764. *** 371,378 ****
  765. --- 381,390 ----
  766.                       /* and fall through */
  767.       case 5:
  768.           mkbase = 1;
  769. + #ifdef DEBUG_INFO
  770.           tfmt = "Pexec(%d,%lx,%s,%lx)";
  771.           tail_offs = 0;
  772. + #endif
  773.           break;
  774.       default:
  775.           DEBUG(("Pexec(%d,%lx,%lx,%lx): bad mode",mode,ptr1,ptr2,ptr3));
  776. ***************
  777. *** 402,408 ****
  778.   TRACE(("creating environment"));
  779.   
  780.       if (mkload || mkbase) {
  781. !         env = create_env((char *)ptr3);
  782.           if (!env) {
  783.               DEBUG(("Pexec: unable to create environment"));
  784.               if (p) dispose_proc(p);
  785. --- 414,420 ----
  786.   TRACE(("creating environment"));
  787.   
  788.       if (mkload || mkbase) {
  789. !         env = create_env((char *)ptr3, flags);
  790.           if (!env) {
  791.               DEBUG(("Pexec: unable to create environment"));
  792.               if (p) dispose_proc(p);
  793. ***************
  794. *** 531,536 ****
  795. --- 543,571 ----
  796.               }
  797.               return mint_errno;
  798.           }
  799. + 
  800. +     /* jr: add Pexec information to PROC struct */
  801. +         strncpy(p->cmdlin, b->p_cmdlin, 128);
  802. +         p->fname[0] = 0;
  803. +         if (mkload) {
  804. +             char tmp[PATH_MAX];
  805. +             char *source = ptr1;
  806. +             tmp[1] = ':';
  807. +             if (source[1] == ':') {
  808. +                 tmp[0] = source[0];
  809. +                 source += 2;
  810. +             } else
  811. +                 tmp[0] = 'A' + curproc->curdrv;
  812. +             if (DIRSEP(source[0]))    /* absolute path? */
  813. +             {
  814. +                 strncpy (&tmp[2], &source[0], PATH_MAX-2);
  815. +                 strcpy (p->fname, tmp);
  816. +             } else {
  817. +                 if (! d_getcwd (&tmp[2], tmp[0] - 'A' + 1, PATH_MAX - 2))
  818. +                     ksprintf (p->fname, "%s\\%s", tmp, source);
  819. +             }
  820. +         }
  821. + 
  822.           if (ptrace)
  823.               p->ptracer = pid2proc(p->ppid);
  824.   
  825. ***************
  826. *** 731,739 ****
  827.   
  828.   /* close pending opendir/readdir searches */
  829.       for (dirh = curproc->searches; dirh; ) {
  830. !         if (!dirh->fc.fs) continue;
  831. !         (*dirh->fc.fs->closedir)(dirh);
  832. !         release_cookie(&dirh->fc);
  833.           nexth = dirh->next;
  834.           kfree(dirh);
  835.           dirh = nexth;
  836. --- 766,775 ----
  837.   
  838.   /* close pending opendir/readdir searches */
  839.       for (dirh = curproc->searches; dirh; ) {
  840. !         if (dirh->fc.fs) {
  841. !             (*dirh->fc.fs->closedir)(dirh);
  842. !             release_cookie(&dirh->fc);
  843. !         }
  844.           nexth = dirh->next;
  845.           kfree(dirh);
  846.           dirh = nexth;
  847. ***************
  848. *** 1099,1105 ****
  849. --- 1135,1144 ----
  850.       assert(p != curproc);
  851.   
  852.   /* take the child off both the global and ZOMBIE lists */
  853. +     { short sr = spl7();
  854.       rm_q(ZOMBIE_Q, p);
  855. +     spl(sr);
  856. +     }
  857.   
  858.       if (proclist == p) {
  859.           proclist = p->gl_next;
  860. ***************
  861. *** 1174,1180 ****
  862.       long sigmask;
  863.       MEMREGION *m, *savemem = 0;
  864.       long savesize, txtsize;
  865. !     int i;
  866.       char *saveplace;
  867.   
  868.       p = fork_proc();
  869. --- 1213,1219 ----
  870.       long sigmask;
  871.       MEMREGION *m, *savemem = 0;
  872.       long savesize, txtsize;
  873. !     int i, newpid;
  874.       char *saveplace;
  875.   
  876.       p = fork_proc();
  877. ***************
  878. *** 1277,1284 ****
  879.           detach_region(curproc, savemem);
  880.       }
  881.       curproc->sigmask = sigmask;
  882.       check_sigs();    /* did we get any signals while sleeping? */
  883. !     return p->pid;
  884.   }
  885.   
  886.   /*
  887. --- 1316,1327 ----
  888.           detach_region(curproc, savemem);
  889.       }
  890.       curproc->sigmask = sigmask;
  891. + /* note that the PROC structure pointed to by p may be freed during
  892. +  * the check_sigs call!
  893. +  */
  894. +     newpid = p->pid;
  895.       check_sigs();    /* did we get any signals while sleeping? */
  896. !     return newpid;
  897.   }
  898.   
  899.   /*
  900. *** 1.7    1993/06/25 21:14:36
  901. --- filesys.c    1993/08/10 20:48:52
  902. ***************
  903. *** 121,132 ****
  904.    * processes are run
  905.    *
  906.    * NOTE that a number of directory changes take place here: we look first
  907. !  * in the current directory, then in the directory \mint, and finally
  908. !  * the d_lock() calls force us into the root directory.
  909.    */
  910.   
  911.   typedef FILESYS * ARGS_ON_STACK (*FSFUNC) P_((struct kerinfo *));
  912.   
  913.   void
  914.   load_filesys()
  915.   {
  916. --- 121,138 ----
  917.    * processes are run
  918.    *
  919.    * NOTE that a number of directory changes take place here: we look first
  920. !  * in the current directory, then in the directory \mint.
  921.    */
  922.   
  923.   typedef FILESYS * ARGS_ON_STACK (*FSFUNC) P_((struct kerinfo *));
  924.   
  925. + /* uk: made this lie outside of functions, as load_filesys() and
  926. +  *     load_devdriver() need access to it.
  927. +  */
  928. + #define NPATHS 3
  929. + static const char *ext_paths[NPATHS] = {"", "\\MINT", "\\MULTITOS"};
  930. + 
  931. + 
  932.   void
  933.   load_filesys()
  934.   {
  935. ***************
  936. *** 139,157 ****
  937.       extern struct kerinfo kernelinfo; /* in main.c */
  938.       char curpath[PATH_MAX];
  939.       MEMREGION *xfsreg;
  940. - #define NPATHS 3
  941. -     static const char *paths[NPATHS] = {"", "\\MINT", "\\MULTITOS"};
  942.   
  943.       curproc->dta = &dta;
  944.       d_getpath(curpath,0);
  945.   
  946.       for (i = 0; i < NPATHS; i++) {
  947. !         if (*paths[i]) {
  948.   /* don't bother checking the current directory twice! */
  949. !             if (!stricmp(paths[i],curpath))
  950.               r = -1;
  951.               else
  952. !             r = d_setpath(paths[i]);
  953.           }
  954.           else
  955.               r = 0;
  956. --- 145,161 ----
  957.       extern struct kerinfo kernelinfo; /* in main.c */
  958.       char curpath[PATH_MAX];
  959.       MEMREGION *xfsreg;
  960.   
  961.       curproc->dta = &dta;
  962.       d_getpath(curpath,0);
  963.   
  964.       for (i = 0; i < NPATHS; i++) {
  965. !         if (*ext_paths[i]) {
  966.   /* don't bother checking the current directory twice! */
  967. !             if (!stricmp(ext_paths[i],curpath))
  968.               r = -1;
  969.               else
  970. !             r = d_setpath(ext_paths[i]);
  971.           }
  972.           else
  973.               r = 0;
  974. ***************
  975. *** 177,185 ****
  976.       /* put the loaded XFS into super accesible memory */
  977.               xfsreg = addr2region( (long) b );
  978.               mark_region(xfsreg, PROT_S);
  979.       /* link it into the list of drivers */
  980. !             fs->next = active_fs;
  981. !             active_fs = fs;
  982.           } else {
  983.               DEBUG(("%s returned null", dta.dta_name));
  984.               m_free((virtaddr)b);
  985. --- 181,209 ----
  986.       /* put the loaded XFS into super accesible memory */
  987.               xfsreg = addr2region( (long) b );
  988.               mark_region(xfsreg, PROT_S);
  989. + 
  990.       /* link it into the list of drivers */
  991. !     /* uk: but only if it has not installed itself via Dcntl()
  992. !      *     after checking if file system is already installed,
  993. !      *     so we know for sure that each file system in at most
  994. !      *     once in the chain (important for removal!)
  995. !      * also note: this doesn't preclude loading two different
  996. !      * instances of the same file system driver, e.g. it's perfectly
  997. !      * OK to have a "cdromy1.xfs" and "cdromz2.xfs"; the check below
  998. !      * just makes sure that a given instance of a file system is
  999. !      * installed at most once. I.e., it prevents cdromy1.xfs from being
  1000. !      * installed twice.
  1001. !      */
  1002. !             if ((FILESYS*)1L != fs) {
  1003. !                 FILESYS *f = active_fs;
  1004. !                 for (;  f;  f = f->next)
  1005. !                     if (f == fs)
  1006. !                         break;
  1007. !                 if (!f) {   /* we ran completly through the list */
  1008. !                     fs->next = active_fs;
  1009. !                     active_fs = fs;
  1010. !                 }
  1011. !             }
  1012.           } else {
  1013.               DEBUG(("%s returned null", dta.dta_name));
  1014.               m_free((virtaddr)b);
  1015. ***************
  1016. *** 201,206 ****
  1017. --- 225,334 ----
  1018.   #endif
  1019.   }
  1020.   
  1021. + 
  1022. + /*
  1023. +  * uk: load device driver in files called *.xdd (external device driver)
  1024. +  *     from disk
  1025. +  * maybe this should go into biosfs.c ??
  1026. +  *
  1027. +  * this routine is called after process 0 is set up, but before any user
  1028. +  * processes are run, but before the loadable file systems come in,
  1029. +  * so they can make use of external device drivers
  1030. +  *
  1031. +  * NOTE that a number of directory changes take place here: we look first
  1032. +  * in the current directory, then in the directory \mint, and finally
  1033. +  * the d_lock() calls force us into the root directory.
  1034. +  * ??? what d_lock() calls ???
  1035. +  */
  1036. + 
  1037. + typedef DEVDRV * ARGS_ON_STACK (*DEVFUNC) P_((struct kerinfo *));
  1038. + 
  1039. + #define DEV_SELFINST  ((DEVDRV*)1L)  /* dev driver did dcntl() already */
  1040. + 
  1041. + void
  1042. + load_devdriver()
  1043. + {
  1044. +     long r;
  1045. +     BASEPAGE *b;
  1046. +     DEVDRV *dev;
  1047. +     DEVFUNC initf;
  1048. +     struct dev_descr the_dev;
  1049. +     static DTABUF dta;
  1050. +     int i;
  1051. +     extern struct kerinfo kernelinfo; /* in main.c */
  1052. +     char curpath[PATH_MAX];
  1053. +     char dev_name[PATH_MAX];  /* a bit long, but one never knows... */
  1054. +     char ch, *p;
  1055. +     MEMREGION *xddreg;
  1056. + 
  1057. + 
  1058. +     curproc->dta = &dta;
  1059. +     d_getpath(curpath,0);
  1060. + 
  1061. +     for (i = 0; i < NPATHS; i++) {
  1062. +         if (*ext_paths[i]) {
  1063. + /* don't bother checking the current directory twice! */
  1064. +             if (!stricmp(ext_paths[i],curpath))
  1065. +             r = -1;
  1066. +             else
  1067. +             r = d_setpath(ext_paths[i]);
  1068. +         }
  1069. +         else
  1070. +             r = 0;
  1071. + 
  1072. +         if (r == 0)
  1073. +             r = f_sfirst("*.xdd", 0);
  1074. + 
  1075. +         while (r == 0) {
  1076. +         b = (BASEPAGE *)p_exec(3, dta.dta_name, (char *)"", (char *)0);
  1077. +         if ( ((long)b) < 0 ) {
  1078. +             DEBUG(("Error loading device driver %s", dta.dta_name));
  1079. +             r = f_snext();
  1080. +             continue;
  1081. +         }
  1082. +     /* we leave a little bit of slop at the end of the loaded stuff */
  1083. +         m_shrink(0, (virtaddr)b, 512 + b->p_tlen + b->p_dlen + b->p_blen);
  1084. +         initf = (DEVFUNC)b->p_tbase;
  1085. +         TRACE(("initializing %s", dta.dta_name));
  1086. +         dev = (*initf)(&kernelinfo);
  1087. + 
  1088. +         if (dev) {
  1089. +             if (DEV_SELFINST != dev) {
  1090. +     /* we need to install the device driver ourselves */
  1091. +                 the_dev.driver = dev;
  1092. +                 the_dev.dinfo = 0;
  1093. +                 the_dev.flags = 0;
  1094. +                 the_dev.tty = (struct tty*)0L;
  1095. +                 the_dev.reserved[0] = the_dev.reserved[1] = 0;
  1096. +                 the_dev.reserved[2] = the_dev.reserved[3] = 0;
  1097. +                 p = dta.dta_name;
  1098. +                 while (*p && *p != '.') p++;
  1099. +                 ch = *p;
  1100. +                 *p = '\0';  /* we dont want the extension */
  1101. +                 strcpy(dev_name, "u:\\dev\\");
  1102. +                 strcat(dev_name, dta.dta_name);
  1103. +                 *p = ch;
  1104. +                 r = d_cntl(DEV_INSTALL, dev_name, (long)&the_dev);
  1105. +                 if (r <= 0) {
  1106. +                     DEBUG(("Error installing device driver %s", dta.dta_name));
  1107. +                     r = f_snext();
  1108. +                     continue;
  1109. +                 }
  1110. +             }
  1111. +             TRACE(("%s loaded OK", dta.dta_name));
  1112. +     /* put the loaded XDD into super accesible memory */
  1113. +             xddreg = addr2region( (long) b );
  1114. +             mark_region(xddreg, PROT_S);
  1115. +         } else {
  1116. +             DEBUG(("%s returned null", dta.dta_name));
  1117. +             m_free((virtaddr)b);
  1118. +         }
  1119. +         r = f_snext();
  1120. +         }
  1121. +     }
  1122. + }
  1123. +  
  1124. + 
  1125.   void
  1126.   close_filesys()
  1127.   {
  1128. ***************
  1129. *** 285,294 ****
  1130.           }
  1131.   
  1132.       /* terminate any active directory searches on the drive */
  1133. -     /* BUG: This handles only Fsfirst/Fsnext searches! */
  1134.           for (i = 0; i < NUM_SEARCH; i++) {
  1135.               dirh = &p->srchdir[i];
  1136. !             if (dirh->fc.fs && dirh->fc.dev == d) {
  1137.                   TRACE(("closing search for process %d", p->pid));
  1138.                   release_cookie(&dirh->fc);
  1139.                   dirh->fc.fs = 0;
  1140. --- 413,421 ----
  1141.           }
  1142.   
  1143.       /* terminate any active directory searches on the drive */
  1144.           for (i = 0; i < NUM_SEARCH; i++) {
  1145.               dirh = &p->srchdir[i];
  1146. !             if (p->srchdta[i] && dirh->fc.fs && dirh->fc.dev == d) {
  1147.                   TRACE(("closing search for process %d", p->pid));
  1148.                   release_cookie(&dirh->fc);
  1149.                   dirh->fc.fs = 0;
  1150. ***************
  1151. *** 296,301 ****
  1152. --- 423,438 ----
  1153.               }
  1154.           }
  1155.   
  1156. +         for (dirh = p->searches; dirh; dirh = dirh->next) {
  1157. +             /* If this search is on the changed drive, release
  1158. +                the cookie, but do *not* free it, since the
  1159. +                user could later call closedir on it. */
  1160. +             if (dirh->fc.fs && dirh->fc.dev == d) {
  1161. +                 release_cookie (&dirh->fc);
  1162. +                 dirh->fc.fs = 0;
  1163. +             }
  1164. +         }
  1165. +             
  1166.           if (d >= NUM_DRIVES) continue;
  1167.   
  1168.       /* change any active directories on the device to the (new) root */
  1169. ***************
  1170. *** 400,407 ****
  1171.   /*
  1172.    * routines for parsing path names
  1173.    */
  1174. - 
  1175. - char temp1[PATH_MAX];    /* temporary storage for file names */
  1176.   
  1177.   #define DIRSEP(p) ((p) == '\\')
  1178.   
  1179. --- 537,542 ----
  1180. *** 1.7    1993/06/25 21:14:36
  1181. --- main.c    1993/08/10 20:49:14
  1182. ***************
  1183. *** 212,218 ****
  1184.   /*C*/    8,    /* CPU32 bus error */
  1185.   /*D*/    0,    /* NOTUSED */
  1186.   /*E*/    0,    /* NOTUSED */
  1187. ! /*F*/    0    /* NOTUSED */
  1188.   };
  1189.   
  1190.   /* TOS and MiNT cookie jars, respectively. See the comments and code 
  1191. --- 212,218 ----
  1192.   /*C*/    8,    /* CPU32 bus error */
  1193.   /*D*/    0,    /* NOTUSED */
  1194.   /*E*/    0,    /* NOTUSED */
  1195. ! /*F*/    13    /* 68070 and 9xC1xx microcontroller address error */
  1196.   };
  1197.   
  1198.   /* TOS and MiNT cookie jars, respectively. See the comments and code 
  1199. ***************
  1200. *** 265,286 ****
  1201.   do_exec_os(basepage)
  1202.       register long basepage;
  1203.   {
  1204. !     register int r;
  1205.   
  1206. !     if (!init_prg)
  1207. !         init_prg = "\\multitos\\gem.sys";
  1208.   
  1209.   /* we have to set a7 to point to lower in our TPA; otherwise we would
  1210.    * bus error right after the Mshrink call!
  1211.    */
  1212. !     setstack(basepage+500L);
  1213.   #if defined(__TURBOC__) && !defined(__MINT__)
  1214. !     Mshrink(0, (void *)basepage, 512L);
  1215.   #else
  1216. !     Mshrink((void *)basepage, 512L);
  1217.   #endif
  1218. !     r = (int) Pexec(200, (char *)init_prg, init_tail, init_env);
  1219. !     Pterm(r);
  1220.   }
  1221.   
  1222.   
  1223. --- 265,292 ----
  1224.   do_exec_os(basepage)
  1225.       register long basepage;
  1226.   {
  1227. !     register long r;
  1228.   
  1229. ! /* if the user didn't specify a startup program, jump to the ROM */
  1230. !     if (!init_prg) {
  1231. !         register void ARGS_ON_STACK (*f) P_((long));
  1232. !         f = (void ARGS_ON_STACK (*) P_((long))) old_execos.next;
  1233. !         (*f)(basepage);
  1234. !         Pterm0();
  1235. !     } else {        
  1236.   
  1237.   /* we have to set a7 to point to lower in our TPA; otherwise we would
  1238.    * bus error right after the Mshrink call!
  1239.    */
  1240. !         setstack(basepage+500L);
  1241.   #if defined(__TURBOC__) && !defined(__MINT__)
  1242. !         Mshrink(0, (void *)basepage, 512L);
  1243.   #else
  1244. !         Mshrink((void *)basepage, 512L);
  1245.   #endif
  1246. !         r = Pexec(200, (char *)init_prg, init_tail, init_env);
  1247. !         Pterm((int)r);
  1248. !     }
  1249.   }
  1250.   
  1251.   
  1252. ***************
  1253. *** 816,821 ****
  1254. --- 822,829 ----
  1255.    */
  1256.       (void)d_setpath(curpath);
  1257.       
  1258. +     load_devdriver();
  1259. + 
  1260.   #ifndef PROFILING
  1261.   /* load_filesys causes media changes :-( */
  1262.       load_filesys();
  1263. ***************
  1264. *** 866,872 ****
  1265.           r = p_exec(0, (char *)init_prg, init_tail, init_env);
  1266.       } else if (!gem_active) {   
  1267.           BASEPAGE *bp; int pid;
  1268. !         bp = (BASEPAGE *)p_exec(7, (char *)7L, (char *)"\0", init_env);
  1269.           bp->p_tbase = *((long *) EXEC_OS );
  1270.           r = p_exec(106, (char *)"GEM", bp, 0L);
  1271.           pid = (int)r;
  1272. --- 874,882 ----
  1273.           r = p_exec(0, (char *)init_prg, init_tail, init_env);
  1274.       } else if (!gem_active) {   
  1275.           BASEPAGE *bp; int pid;
  1276. !         bp = (BASEPAGE *)p_exec(7,
  1277. !           (char *)((long)F_FASTLOAD | F_ALTLOAD | F_ALTALLOC | F_PROT_S),
  1278. !           (char *)"\0", init_env);
  1279.           bp->p_tbase = *((long *) EXEC_OS );
  1280.           r = p_exec(106, (char *)"GEM", bp, 0L);
  1281.           pid = (int)r;
  1282. ***************
  1283. *** 1039,1045 ****
  1284.                       if (jar->value != 30) no_mem_prot = 1;
  1285.                       foundcpu = 1;
  1286.               } else if (!strncmp(jar->tag.aschar, "_VDO",4)) {
  1287. !                 FalconVideo = (jar->value == 0x00000300L);
  1288.                   if (jar->value & 0xffff0000L)
  1289.                       screen_boundary = 15;
  1290.               } else if (!strncmp(jar->tag.aschar, "MiNT",4)) {
  1291. --- 1049,1055 ----
  1292.                       if (jar->value != 30) no_mem_prot = 1;
  1293.                       foundcpu = 1;
  1294.               } else if (!strncmp(jar->tag.aschar, "_VDO",4)) {
  1295. !                 FalconVideo = (jar->value == 0x00030000L);
  1296.                   if (jar->value & 0xffff0000L)
  1297.                       screen_boundary = 15;
  1298.               } else if (!strncmp(jar->tag.aschar, "MiNT",4)) {
  1299. ***************
  1300. *** 1131,1136 ****
  1301. --- 1141,1147 ----
  1302.       if (!strcmp(name, "INIT")) {
  1303.           init_is_gem = 0;
  1304.   setup_init:
  1305. +         if (!*val) return;
  1306.           t = kmalloc(strlen(val)+1);
  1307.           if (!t) return;
  1308.           strcpy(t, val);
  1309. *** 1.7    1993/06/25 21:14:36
  1310. --- mem.c    1993/08/13 18:11:30
  1311. ***************
  1312. *** 33,46 ****
  1313.    */
  1314.   
  1315.   /* initial number of memory regions */
  1316. ! #define NREGIONS 512
  1317.   
  1318.   /* number of new regions to allocate when the initial ones are used up */
  1319. ! #define NEWREGIONS 256
  1320.   
  1321.   static MEMREGION use_regions[NREGIONS+1];
  1322.   MEMREGION *rfreelist;
  1323.   
  1324.   /* these variables are set in init_core(), and used in
  1325.    * init_mem()
  1326.    */
  1327. --- 33,51 ----
  1328.    */
  1329.   
  1330.   /* initial number of memory regions */
  1331. ! #define NREGIONS ((8*1024)/sizeof(MEMREGION))
  1332.   
  1333.   /* number of new regions to allocate when the initial ones are used up */
  1334. ! #define NEWREGIONS ((8*1024)/sizeof(MEMREGION))
  1335.   
  1336.   static MEMREGION use_regions[NREGIONS+1];
  1337.   MEMREGION *rfreelist;
  1338.   
  1339. + /* variable for debugging purposes; number of times we've needed
  1340. +  * to get new regions
  1341. +  */
  1342. + int num_reg_requests = 0;
  1343. + 
  1344.   /* these variables are set in init_core(), and used in
  1345.    * init_mem()
  1346.    */
  1347. ***************
  1348. *** 342,347 ****
  1349. --- 347,353 ----
  1350.               newstuff = get_region(core, NEWREGIONS*SIZEOF(MEMREGION), PROT_S);
  1351.           newfrees = newstuff ? (MEMREGION *)newstuff->loc : 0;
  1352.           if (newfrees) {
  1353. +             num_reg_requests++;
  1354.               newfrees[NEWREGIONS-1].next = 0;
  1355.               newfrees[NEWREGIONS-1].links = 0;
  1356.               for (i = 0; i < NEWREGIONS-1; i++) {
  1357. ***************
  1358. *** 885,892 ****
  1359.    */
  1360.   
  1361.   MEMREGION *
  1362. ! create_env(env)
  1363.       const char *env;
  1364.   {
  1365.       long size;
  1366.       MEMREGION *m;
  1367. --- 891,899 ----
  1368.    */
  1369.   
  1370.   MEMREGION *
  1371. ! create_env(env, flags)
  1372.       const char *env;
  1373. +     ulong flags;
  1374.   {
  1375.       long size;
  1376.       MEMREGION *m;
  1377. ***************
  1378. *** 893,898 ****
  1379. --- 900,906 ----
  1380.       virtaddr v;
  1381.       const char *old;
  1382.       char *new;
  1383. +     short protmode;
  1384.   
  1385.       if (!env) {
  1386.           env = ((BASEPAGE *)curproc->base)->p_env;
  1387. ***************
  1388. *** 903,912 ****
  1389.       while (*env || *(env+1))
  1390.           env++,size++;
  1391.   
  1392. !     v = alloc_region(core, size, PROT_P);
  1393.       /* if core fails, try alt */
  1394.       if (!v)
  1395. !         v = alloc_region(alt, size, PROT_P);
  1396.   
  1397.       if (!v) {
  1398.           DEBUG(("create_env: alloc_region failed"));
  1399. --- 911,922 ----
  1400.       while (*env || *(env+1))
  1401.           env++,size++;
  1402.   
  1403. !     protmode = (flags & F_PROTMODE) >> F_PROTSHIFT;
  1404. ! 
  1405. !     v = alloc_region(core, size, protmode);
  1406.       /* if core fails, try alt */
  1407.       if (!v)
  1408. !         v = alloc_region(alt, size, protmode);
  1409.   
  1410.       if (!v) {
  1411.           DEBUG(("create_env: alloc_region failed"));
  1412. ***************
  1413. *** 1605,1613 ****
  1414. --- 1615,1626 ----
  1415.   void
  1416.   DUMP_ALL_MEM()
  1417.   {
  1418. + #ifdef DEBUG_INFO
  1419.       DUMPMEM(ker);
  1420.       DUMPMEM(core);
  1421.       DUMPMEM(alt);
  1422. +     FORCE("new memory region descriptor pages: %d", num_reg_requests);
  1423. + #endif
  1424.   }
  1425.   
  1426.   void
  1427. *** 1.7    1993/06/25 21:14:36
  1428. --- memprot.c    1993/08/10 20:49:44
  1429. ***************
  1430. *** 495,501 ****
  1431.       ushort dt_val, s_val, wp_val;
  1432.       PROC *proc;
  1433.       MEMREGION **mr;
  1434. -     int change;
  1435.   
  1436.       if (no_mem_prot) return;
  1437.   
  1438. --- 495,500 ----
  1439. ***************
  1440. *** 505,515 ****
  1441.       mode = global_mode_table[(start >> 13)];
  1442.       }
  1443.   
  1444. -     if (global_mode_table[(start >> 13)] == mode) {
  1445. -         change = 0;
  1446. -     }
  1447. -     else change = 1;
  1448. - 
  1449.       /* mark the global page table */
  1450.   
  1451.       memset(&global_mode_table[start >> 13],mode,(len >> 13));
  1452. --- 504,509 ----
  1453. ***************
  1454. *** 939,946 ****
  1455.   void
  1456.   report_buserr()
  1457.   {
  1458. !     long_desc *tbl;
  1459. !     const char *vmsg = NULL;
  1460.       short mode;
  1461.       ulong aa, pc;
  1462.       char alertbuf[5*32+16];    /* enough for an alert */
  1463. --- 933,939 ----
  1464.   void
  1465.   report_buserr()
  1466.   {
  1467. !     const char *vmsg;
  1468.       short mode;
  1469.       ulong aa, pc;
  1470.       char alertbuf[5*32+16];    /* enough for an alert */
  1471. ***************
  1472. *** 948,954 ****
  1473.   
  1474.       if (no_mem_prot) return;
  1475.   
  1476. -     tbl = (long_desc *)curproc->exception_tbl;
  1477.       aa = curproc->exception_addr;
  1478.       pc = curproc->exception_pc;
  1479.       if ((mint_top_tt && aa < mint_top_tt) || (aa < mint_top_st)) {
  1480. --- 941,946 ----
  1481. ***************
  1482. *** 1031,1037 ****
  1483.       MEMREGION *mp, **mr, **map;
  1484.       PROC *p;
  1485.       ulong loc;
  1486. !     short owner = 0;
  1487.       short i;
  1488.       short first;
  1489.   
  1490. --- 1023,1029 ----
  1491.       MEMREGION *mp, **mr, **map;
  1492.       PROC *p;
  1493.       ulong loc;
  1494. !     short owner;
  1495.       short i;
  1496.       short first;
  1497.   
  1498. *** 1.7    1993/06/25 21:14:36
  1499. --- nalloc2.c    1993/08/13 20:36:48
  1500. ***************
  1501. *** 1,5 ****
  1502.   /*
  1503. !  * Copyright 1992 Atari Corporation. All rights reserved.
  1504.    */
  1505.   
  1506.   /*
  1507. --- 1,6 ----
  1508.   /*
  1509. !  * Copyright 1992,1993 Atari Corporation.
  1510. !  * All rights reserved.
  1511.    */
  1512.   
  1513.   /*
  1514. ***************
  1515. *** 65,75 ****
  1516.   void *start;
  1517.   long len;
  1518.   {
  1519. !     struct arena *a = start;
  1520.       struct block *b;
  1521.   
  1522. !     a->a_next = a_first;
  1523. !     a_first = a;
  1524.       a->a_ffirst = b = (struct block *)(a+1);
  1525.       a->a_size = len;
  1526.       b->b_next = NULL;
  1527. --- 66,82 ----
  1528.   void *start;
  1529.   long len;
  1530.   {
  1531. !     struct arena *a;
  1532.       struct block *b;
  1533.   
  1534. !     for (a = a_first; a && a->a_next; a = a->a_next)
  1535. !     continue;
  1536. !     if (a)
  1537. !         a->a_next = (struct arena *)start;
  1538. !     else
  1539. !         a_first = (struct arena *)start;
  1540. !     a = start;
  1541. !     a->a_next = NULL;
  1542.       a->a_ffirst = b = (struct block *)(a+1);
  1543.       a->a_size = len;
  1544.       b->b_next = NULL;
  1545. ***************
  1546. *** 230,244 ****
  1547.       fb->b_next = b->b_next;
  1548.       }
  1549.   
  1550. - #if 0
  1551.       /* if, after coalescing, this arena is entirely free, Mfree it! */
  1552. !     if (a->a_ffirst == a+1 && 
  1553.           (a->a_ffirst->b_size + sizeof(struct block)) == a->a_size) {
  1554.           NALLOC_DEBUG('!');
  1555.           *qa = a->a_next;
  1556.           (void)Mfree(a);
  1557. -     }
  1558.   #endif
  1559.   
  1560.       return;
  1561.   }
  1562. --- 237,253 ----
  1563.       fb->b_next = b->b_next;
  1564.       }
  1565.   
  1566.       /* if, after coalescing, this arena is entirely free, Mfree it! */
  1567. !     if ((struct arena *)a->a_ffirst == a+1 && 
  1568.           (a->a_ffirst->b_size + sizeof(struct block)) == a->a_size) {
  1569.           NALLOC_DEBUG('!');
  1570.           *qa = a->a_next;
  1571. + #if 1
  1572. +         kfree(a);    /* MiNT -- give back so it can be used by users */
  1573. + #else
  1574.           (void)Mfree(a);
  1575.   #endif
  1576. +     }
  1577.   
  1578.       return;
  1579.   }
  1580. *** 1.7    1993/06/25 21:14:36
  1581. --- proc.c    1993/08/13 22:46:50
  1582. ***************
  1583. *** 1,6 ****
  1584.   /*
  1585.   Copyright 1990,1991,1992 Eric R. Smith.
  1586. ! Copyright 1992 Atari Corporation.
  1587.   All rights reserved.
  1588.   */
  1589.   
  1590. --- 1,6 ----
  1591.   /*
  1592.   Copyright 1990,1991,1992 Eric R. Smith.
  1593. ! Copyright 1992,1993 Atari Corporation.
  1594.   All rights reserved.
  1595.   */
  1596.   
  1597. ***************
  1598. *** 139,146 ****
  1599. --- 139,151 ----
  1600.           dup_cookie(&p->curdir[i], &curproc->curdir[i]);
  1601.       }
  1602.   
  1603. + /* jr: copy ploadinfo */
  1604. +     strcpy (p->cmdlin, curproc->cmdlin);
  1605. +     strcpy (p->fname, curproc->fname);
  1606. + 
  1607.   /* clear directory search info */
  1608.       zero((char *)p->srchdta, NUM_SEARCH * SIZEOF(DTABUF *));
  1609. +     zero((char *)p->srchdir, SIZEOF(p->srchdir));
  1610.       p->searches = 0;
  1611.   
  1612.   /* copy memory */
  1613. ***************
  1614. *** 454,461 ****
  1615. --- 459,468 ----
  1616.       PROC *p;
  1617.       short sr;
  1618.       extern short kintr;    /* in bios.c */
  1619. + #ifndef MULTITOS
  1620.   #ifdef FASTTEXT
  1621.       extern int hardscroll;    /* in fasttext.c */
  1622. + #endif
  1623.   #endif
  1624.   
  1625.   /*
  1626. *** 1.7    1993/06/25 21:14:36
  1627. --- procfs.c    1993/08/13 22:49:58
  1628. ***************
  1629. *** 544,549 ****
  1630. --- 544,550 ----
  1631.    * PTRACEFLOW: restart the process (T1=0/T0=1)
  1632.    * PTRACESTEP: restart the process (T1=1/T0=0)
  1633.    * PTRACE11: restart the process (T1=1/T0=1)
  1634. +  * PLOADINFO: get information about the process name and command line
  1635.    */
  1636.   
  1637.   static long ARGS_ON_STACK 
  1638. ***************
  1639. *** 552,557 ****
  1640. --- 553,559 ----
  1641.   {
  1642.       PROC *p;
  1643.       extern long mcpu;    /* in main.c */
  1644. +     short sr;
  1645.   
  1646.       p = (PROC *)f->devinfo;
  1647.       switch(mode) {
  1648. ***************
  1649. *** 633,638 ****
  1650. --- 635,644 ----
  1651.               DEBUG(("proc_ioctl(PTRACE): process stopped by job control"));
  1652.               return EACCDN;
  1653.           }
  1654. +         if (buf && *(ushort *)buf >= NSIG) {
  1655. +             DEBUG(("proc_ioctl(PTRACE): illegal signal number"));
  1656. +             return ERANGE;
  1657. +         }
  1658.           p->ctxt[SYSCALL].sr &= 0x3fff;    /* clear both trace bits */
  1659.           p->ctxt[SYSCALL].sr |= (mode - PTRACEGO) << 14;
  1660.           p->sigpending = 0;
  1661. ***************
  1662. *** 649,657 ****
  1663. --- 655,679 ----
  1664.   TRACE(("PTRACEGO: no signal"));
  1665.           }
  1666.   /* wake the process up */
  1667. +         sr = spl7();
  1668.           rm_q(p->wait_q, p);
  1669.           add_q(READY_Q, p);
  1670. +         spl(sr);
  1671. +         return 0;
  1672. +     /* jr: PLOADINFO returns information about params passed to Pexec */
  1673. +     case PLOADINFO:
  1674. +         {
  1675. +             struct ploadinfo *pl = buf;
  1676. + 
  1677. +             if (!p->fname[0]) return EFILNF;
  1678. +             strncpy (pl->cmdlin, p->cmdlin, 128);
  1679. +             if (strlen (p->fname) <= pl->fnamelen)
  1680. +                 strcpy (pl->fname, p->fname);
  1681. +             else
  1682. +                 return ENAMETOOLONG;
  1683. +         }
  1684.           return 0;
  1685. + 
  1686.       case FIONREAD:
  1687.       case FIONWRITE:
  1688.           *((long *)buf) = 1L;    /* we're always ready for i/o */
  1689. *** 1.7    1993/06/25 21:14:36
  1690. --- signal.c    1993/08/10 20:50:50
  1691. ***************
  1692. *** 86,91 ****
  1693. --- 86,93 ----
  1694.   /* otherwise, make sure the process is awake */
  1695.       if (p->wait_q && p->wait_q != READY_Q) {
  1696.           short sr = spl7();
  1697. +         if (p->wait_q == SELECT_Q)
  1698. +             p->wait_cond = 0;
  1699.           rm_q(p->wait_q, p);
  1700.           add_q(READY_Q, p);
  1701.           spl(sr);
  1702. *** 1.7    1993/06/25 21:14:36
  1703. --- trutil.c    1993/08/10 20:51:22
  1704. ***************
  1705. *** 6,11 ****
  1706. --- 6,12 ----
  1707.   #define CMDSYM '%'
  1708.   
  1709.   FILE *infile, *outfile;
  1710. + extern YYSTYPE yylval;
  1711.   
  1712.   #define MAXNEST 10
  1713.   int hidecnt = 0;
  1714. *** 1.7    1993/06/25 21:14:36
  1715. --- unifs.c    1993/08/10 20:51:36
  1716. ***************
  1717. *** 1,6 ****
  1718.   /*
  1719.   Copyright 1991,1992 Eric R. Smith.
  1720. ! Copyright 1992 Atari Corporation.
  1721.   All rights reserved.
  1722.    */
  1723.   
  1724. --- 1,6 ----
  1725.   /*
  1726.   Copyright 1991,1992 Eric R. Smith.
  1727. ! Copyright 1992,1993 Atari Corporation.
  1728.   All rights reserved.
  1729.    */
  1730.   
  1731. ***************
  1732. *** 32,37 ****
  1733. --- 32,38 ----
  1734.   static DEVDRV *    ARGS_ON_STACK uni_getdev    P_((fcookie *fc, long *devsp));
  1735.   static long    ARGS_ON_STACK uni_symlink    P_((fcookie *dir, const char *name, const char *to));
  1736.   static long    ARGS_ON_STACK uni_readlink    P_((fcookie *fc, char *buf, int buflen));
  1737. + static long    ARGS_ON_STACK uni_fscntl    P_((fcookie *dir, const char *name, int cmd, long arg));
  1738.   
  1739.   FILESYS uni_filesys = {
  1740.       (FILESYS *)0,
  1741. ***************
  1742. *** 42,48 ****
  1743.       nomkdir, uni_rmdir, uni_remove, uni_getname, uni_rename,
  1744.       uni_opendir, uni_readdir, uni_rewinddir, uni_closedir,
  1745.       uni_pathconf, uni_dfree, nowritelabel, noreadlabel,
  1746. !     uni_symlink, uni_readlink, nohardlink, nofscntl, nodskchng
  1747.   };
  1748.   
  1749.   /*
  1750. --- 43,49 ----
  1751.       nomkdir, uni_rmdir, uni_remove, uni_getname, uni_rename,
  1752.       uni_opendir, uni_readdir, uni_rewinddir, uni_closedir,
  1753.       uni_pathconf, uni_dfree, nowritelabel, noreadlabel,
  1754. !     uni_symlink, uni_readlink, nohardlink, uni_fscntl, nodskchng
  1755.   };
  1756.   
  1757.   /*
  1758. ***************
  1759. *** 614,617 ****
  1760. --- 615,777 ----
  1761.       if (strlen(u->data) >= buflen)
  1762.           return ENAMETOOLONG;
  1763.       return 0;
  1764. + }
  1765. + 
  1766. + 
  1767. + 
  1768. + 
  1769. + /* uk: use these Dcntl's to install a new filesystem which is only visible
  1770. +  *     on drive u:
  1771. +  *
  1772. +  *     FS_INSTALL:   let the kernel know about the file system; it does NOT
  1773. +  *                   get a device number.
  1774. +  *     FS_MOUNT:     use Dcntl(FS_MOUNT, "u:\\foo", &descr) to make a directory
  1775. +  *                   foo where the filesytem resides in; the file system now
  1776. +  *                   gets its device number which is also written into the
  1777. +  *                   dev_no field of the fs_descr structure.
  1778. +  *     FS_UNMOUNT:   remove a file system's directory; this call closes all
  1779. +  *                   open files, directory searches and directories on this
  1780. +  *                   device. Make sure that the FS will not recognise any
  1781. +  *                   accesses to this device, as fs->root will be called
  1782. +  *                   during the reinitalisation!
  1783. +  *     FS_UNINSTALL: remove a file system completely from the kernel list,
  1784. +  *                   but that will only be possible if there is no directory
  1785. +  *                   associated with this file system.
  1786. +  *                   This function allows it to write file systems as demons
  1787. +  *                   which stay in memory only as long as needed.
  1788. +  *
  1789. +  * BUG: it is not possible yet to lock such a filesystem.
  1790. +  */
  1791. + 
  1792. + /* here we start with gemdos only file system device numbers */
  1793. + static curr_dev_no = 0x100;
  1794. + 
  1795. + 
  1796. + 
  1797. + static long ARGS_ON_STACK
  1798. + uni_fscntl(dir, name, cmd, arg)
  1799. +     fcookie *dir;
  1800. +     const char *name;
  1801. +     int cmd;
  1802. +     long arg;
  1803. + {
  1804. +     fcookie fc;
  1805. +     long r;
  1806. + 
  1807. +     extern struct kerinfo kernelinfo;
  1808. +     extern FILESYS *active_fs;
  1809. + 
  1810. +     if (cmd == FS_INSTALL) { /* install a new filesystem */
  1811. +         struct fs_descr *d = (struct fs_descr*)arg;
  1812. +         FILESYS *fs;
  1813. + 
  1814. +     /* check if FS is installed already */
  1815. +         for (fs = active_fs;  fs;  fs = fs->next)
  1816. +             if (d->file_system == fs)  return 0L;
  1817. +     /* include new file system into chain of file systems */
  1818. +         d->file_system->next = active_fs;
  1819. +         active_fs = d->file_system;
  1820. +         return (long)&kernelinfo;  /* return pointer to kernel info as OK */
  1821. +     } else if (cmd == FS_MOUNT) {  /* install a new gemdos-only device for this FS */
  1822. +         struct fs_descr *d = (struct fs_descr*)arg;
  1823. +         FILESYS *fs;
  1824. +         UNIFILE *u;
  1825. + 
  1826. +     /* first check for existing names */
  1827. +         r = uni_lookup(dir, name, &fc);
  1828. +         if (r == 0) {
  1829. +             release_cookie(&fc);
  1830. +             return EACCDN;   /* name exists already */
  1831. +         }
  1832. +         if (r != EFILNF) return r; /* some other error */
  1833. +         if (!d) return EACCDN;
  1834. +         if (!d->file_system) return EACCDN;
  1835. +     /* check if FS is installed */
  1836. +         for (fs = active_fs;  fs;  fs = fs->next)
  1837. +             if (d->file_system == fs)  break;
  1838. +         if (!fs) return EACCDN;  /* not installed, so return an error */
  1839. +         u = kmalloc(SIZEOF(UNIFILE));
  1840. +         if (!u) return EACCDN;
  1841. +         strncpy(u->name, name, NAME_MAX);
  1842. +         u->name[NAME_MAX] = 0;
  1843. +         u->mode = S_IFDIR|DEFAULT_DIRMODE;
  1844. +         u->data = 0;
  1845. +         u->fs = d->file_system;
  1846. +     /* now get the file system its own device number */
  1847. +         u->dev = d->dev_no = curr_dev_no++;
  1848. +     /* chain new entry into unifile list */
  1849. +         u->next = u_root;
  1850. +         u_root = u;
  1851. +         return (long)u->dev;
  1852. +     } else if (cmd == FS_UNMOUNT) {  /* remove a file system's directory */
  1853. +         struct fs_descr *d = (struct fs_descr*)arg;
  1854. +         FILESYS *fs;
  1855. +         UNIFILE *u;
  1856. + 
  1857. +     /* first check that directory exists */
  1858. +         r = uni_lookup(dir, name, &fc);
  1859. +         if (r != 0)  return EFILNF;   /* name does not exist */
  1860. +         if (!d) return EFILNF;
  1861. +         if (!d->file_system) return EFILNF;
  1862. +         if (d->file_system != fc.fs)
  1863. +             return EFILNF;  /* not the right name! */
  1864. +         u = (UNIFILE*)fc.index;
  1865. +         release_cookie(&fc);
  1866. +         if (!u || (u->fs != d->file_system))
  1867. +             return EFILNF;
  1868. +     /* check if FS is installed */
  1869. +         for (fs = active_fs;  fs;  fs = fs->next)
  1870. +             if (d->file_system == fs)  break;
  1871. +         if (!fs) return EACCDN;  /* not installed, so return an error */
  1872. + 
  1873. +     /* here comes the difficult part: we have to close all files on that
  1874. +      * device, so we have to call changedrv(). The file system driver
  1875. +      * has to make sure that further calls to fs.root() with this device
  1876. +      * number will fail!
  1877. +      *
  1878. +      * Kludge: mark the directory as a link, so uni_remove will remove it.
  1879. +      */
  1880. +         changedrv(u->dev);
  1881. +         u->mode &= ~S_IFMT;
  1882. +         u->mode |= S_IFLNK;
  1883. +         return uni_remove(dir, name);
  1884. +     } else if (cmd == FS_UNINSTALL) {    /* remove file system from kernel list */
  1885. +         struct fs_descr *d = (struct fs_descr*)arg;
  1886. +         FILESYS *fs, *last_fs;
  1887. +         UNIFILE *u;
  1888. + 
  1889. +     /* first check if there are any files or directories associated with
  1890. +      * this file system
  1891. +      */
  1892. +         for (u = u_root;  u;  u = u->next)
  1893. +             if (u->fs == d->file_system)
  1894. +                 return EACCDN;   /* we cannot remove it before unmount */
  1895. +         last_fs = 0;
  1896. +         fs = active_fs;
  1897. +         while (fs)  {   /* go through the list and remove the file system */
  1898. +             if (fs == d->file_system)  {
  1899. +                 if (last_fs)
  1900. +                     last_fs->next = fs->next;
  1901. +                 else
  1902. +                     active_fs = fs->next;
  1903. +                 d->file_system->next = 0;
  1904. +                 return 0;
  1905. +             }
  1906. +             last_fs = fs;
  1907. +             fs = fs->next;
  1908. +         }
  1909. +         return EFILNF;
  1910. +     } else {
  1911. +     /* see if we should just pass this along to another file system */
  1912. +         r = uni_lookup(dir, name, &fc);
  1913. +         if (r == 0) {
  1914. +             if (fc.fs != &uni_filesys) {
  1915. +                 r = (*fc.fs->fscntl)(&fc, ".", cmd, arg);
  1916. +                 release_cookie(&fc);
  1917. +                 return r;
  1918. +             }
  1919. +             release_cookie(&fc);
  1920. +         }
  1921. +     }
  1922. +     return EINVFN;
  1923.   }
  1924. *** 1.7    1993/06/25 21:14:36
  1925. --- util.c    1993/08/13 19:00:52
  1926. ***************
  1927. *** 1,6 ****
  1928.   /*
  1929.   Copyright 1990,1991,1992 Eric R. Smith.
  1930. ! Copyright 1992 Atari Corporation.
  1931.   All rights reserved.
  1932.   */
  1933.   
  1934. --- 1,6 ----
  1935.   /*
  1936.   Copyright 1990,1991,1992 Eric R. Smith.
  1937. ! Copyright 1992,1993 Atari Corporation.
  1938.   All rights reserved.
  1939.   */
  1940.   
  1941. ***************
  1942. *** 107,113 ****
  1943.    * kernel memory allocation routines
  1944.    */
  1945.   
  1946. ! #define KERMEM_THRESHOLD QUANTUM-8
  1947.   #define KMAGIC ((MEMREGION *)0x87654321L)
  1948.   #define NKMAGIC 0x19870425L
  1949.   
  1950. --- 107,118 ----
  1951.    * kernel memory allocation routines
  1952.    */
  1953.   
  1954. ! #define KERMEM_THRESHOLD (QUANTUM-8)
  1955. ! #if 0
  1956. ! #define KERMEM_SIZE QUANTUM
  1957. ! #else
  1958. ! #define KERMEM_SIZE ((KERMEM_THRESHOLD+8)*2)
  1959. ! #endif
  1960.   #define KMAGIC ((MEMREGION *)0x87654321L)
  1961.   #define NKMAGIC 0x19870425L
  1962.   
  1963. ***************
  1964. *** 115,121 ****
  1965.   kmalloc(size)
  1966.       long size;
  1967.   {
  1968. !     MEMREGION *m = 0;
  1969.       MEMREGION **p;
  1970.       long *lp;
  1971.   
  1972. --- 120,126 ----
  1973.   kmalloc(size)
  1974.       long size;
  1975.   {
  1976. !     MEMREGION *m;
  1977.       MEMREGION **p;
  1978.       long *lp;
  1979.   
  1980. ***************
  1981. *** 142,155 ****
  1982.           DEBUG(("kmalloc(%lx): nalloc is out of memory",size));
  1983.   
  1984.       /* If this is commented out, then we fall through to try_getregion */
  1985. !         if (0 == (m = get_region(alt, QUANTUM, PROT_S))) {
  1986. !             if (0 == (m = get_region(core, QUANTUM, PROT_S))) {
  1987.               DEBUG(("No memory for another arena"));
  1988.               goto try_getregion;
  1989.               }
  1990.           }
  1991. !         nalloc_arena_add((void *)m->loc,QUANTUM);
  1992. !         m = 0;
  1993.           goto tryagain;
  1994.           }
  1995.       }
  1996. --- 147,162 ----
  1997.           DEBUG(("kmalloc(%lx): nalloc is out of memory",size));
  1998.   
  1999.       /* If this is commented out, then we fall through to try_getregion */
  2000. !         if (0 == (m = get_region(alt, KERMEM_SIZE, PROT_S))) {
  2001. !             if (0 == (m = get_region(core, KERMEM_SIZE, PROT_S))) {
  2002.               DEBUG(("No memory for another arena"));
  2003.               goto try_getregion;
  2004.               }
  2005.           }
  2006. !         lp = (long *)m->loc;
  2007. !         *lp++ = (long)KMAGIC;
  2008. !         *lp++ = (long)m;
  2009. !         nalloc_arena_add((void *)lp,KERMEM_SIZE);
  2010.           goto tryagain;
  2011.           }
  2012.       }
  2013. *** 1.7    1993/06/25 21:14:36
  2014. --- xbios.c    1993/08/12 21:38:22
  2015. ***************
  2016. *** 29,35 ****
  2017.    * unexpectedly. So we play some dirty tricks here: the function
  2018.    * call is treated like a signal handler, and we take advantage
  2019.    * of the fact that no context switches will take place while
  2020. !  * in supervisor mode. ASSUMPTION: the user will not choose to
  2021.    * switch back to user mode, or if s/he does it will be as part
  2022.    * of a longjmp().
  2023.    *
  2024. --- 29,35 ----
  2025.    * unexpectedly. So we play some dirty tricks here: the function
  2026.    * call is treated like a signal handler, and we take advantage
  2027.    * of the fact that no context switches will take place while
  2028. !  * in supervisor mode. ASSTMPTION: the user will not choose to
  2029.    * switch back to user mode, or if s/he does it will be as part
  2030.    * of a longjmp().
  2031.    *
  2032. ***************
  2033. *** 260,276 ****
  2034.   }
  2035.   
  2036.   
  2037. ! long
  2038.   dosound(ptr)
  2039. !     char *ptr;
  2040.   {
  2041. -     char c;
  2042.       MEMREGION *r;
  2043.   
  2044. !     if (!no_mem_prot) {
  2045.       /* check that this process has access to the memory */
  2046.       /* (if not, the next line will cause a bus error) */
  2047. !         c = *((volatile char *)ptr);
  2048.   
  2049.       /* OK, now make sure that interrupt routines will have access,
  2050.        * too
  2051. --- 260,275 ----
  2052.   }
  2053.   
  2054.   
  2055. ! long ARGS_ON_STACK
  2056.   dosound(ptr)
  2057. !     const char *ptr;
  2058.   {
  2059.       MEMREGION *r;
  2060.   
  2061. !     if (!no_mem_prot && ((long)ptr >= 0)) {
  2062.       /* check that this process has access to the memory */
  2063.       /* (if not, the next line will cause a bus error) */
  2064. !         (void)(*((volatile char *)ptr));
  2065.   
  2066.       /* OK, now make sure that interrupt routines will have access,
  2067.        * too
  2068. ***************
  2069. *** 282,289 ****
  2070.           }
  2071.       }
  2072.   
  2073. !     Dosound(ptr);
  2074. !     return 0;
  2075.   }
  2076.   
  2077.   void
  2078. --- 281,287 ----
  2079.           }
  2080.       }
  2081.   
  2082. !     return call_dosound(ptr);
  2083.   }
  2084.   
  2085.   void
  2086. *** 1.7    1993/06/25 21:14:36
  2087. --- asmtab.h    1993/08/10 20:46:58
  2088. ***************
  2089. *** 1,16 ****
  2090. ! #ifndef YYSTYPE
  2091. ! #define YYSTYPE int
  2092. ! #endif
  2093. ! #define    WORD    258
  2094. ! #define    WHITESP    259
  2095. ! #define    EOLN    260
  2096. ! #define    STRING    261
  2097. ! #define    DEFINECMD    262
  2098. ! #define    INCLUDECMD    263
  2099. ! #define    IFDEFCMD    264
  2100. ! #define    IFNDEFCMD    265
  2101. ! #define    ELSECMD    266
  2102. ! #define    ENDIFCMD    267
  2103. ! 
  2104. ! 
  2105. ! extern YYSTYPE yylval;
  2106. --- 1,10 ----
  2107. ! #define WORD 257
  2108. ! #define WHITESP 258
  2109. ! #define EOLN 259
  2110. ! #define STRING 260
  2111. ! #define DEFINECMD 261
  2112. ! #define INCLUDECMD 262
  2113. ! #define IFDEFCMD 263
  2114. ! #define IFNDEFCMD 264
  2115. ! #define ELSECMD 265
  2116. ! #define ENDIFCMD 266
  2117. *** 1.7    1993/06/25 21:14:36
  2118. --- file.h    1993/08/10 20:48:46
  2119. ***************
  2120. *** 390,396 ****
  2121. --- 390,405 ----
  2122.   #define PTRACEFLOW    (('P'<< 8) | 9)
  2123.   #define PTRACESTEP    (('P'<< 8) | 10)
  2124.   #define PTRACE11    (('P'<< 8) | 11)
  2125. + #define PLOADINFO    (('P'<< 8) | 12)
  2126.   
  2127. + struct ploadinfo {
  2128. +     /* passed */
  2129. +     short fnamelen;
  2130. +     /* returned */
  2131. +     char *cmdlin, *fname;
  2132. + };
  2133. + 
  2134. + 
  2135.   #define SHMGETBLK    (('M'<< 8) | 0)
  2136.   #define SHMSETBLK    (('M'<< 8) | 1)
  2137.   
  2138. ***************
  2139. *** 501,506 ****
  2140. --- 510,530 ----
  2141.       short    flags;
  2142.       struct tty *tty;
  2143.       long    reserved[4];
  2144. + };
  2145. + 
  2146. + 
  2147. + #define FS_INSTALL    0xf001  /* let the kernel know about the file system */
  2148. + #define FS_MOUNT      0xf002  /* make a new directory for a file system */
  2149. + #define FS_UNMOUNT    0xf003  /* remove a directory for a file system */
  2150. + #define FS_UNINSTALL  0xf004  /* remove a file system from the list */
  2151. + 
  2152. + 
  2153. + struct fs_descr
  2154. + {
  2155. +     FILESYS *file_system;
  2156. +     short dev_no;    /* this is filled in by MiNT if arg == FS_MOUNT*/
  2157. +     long flags;
  2158. +     long reserved[4];
  2159.   };
  2160.   
  2161.   
  2162. *** 1.7    1993/06/25 21:14:36
  2163. --- proc.h    1993/08/10 20:50:12
  2164. ***************
  2165. *** 141,146 ****
  2166. --- 141,150 ----
  2167.    * programs should *not* try to read this stuff via the U:\PROC dir.
  2168.    */
  2169.   
  2170. +     /* jr: two fields to hold information passed to Pexec */
  2171. +     char    fname[PATH_MAX];    /* name of binary */
  2172. +     char    cmdlin[128];        /* original command line */
  2173. + 
  2174.       char    name[PNAMSIZ+1];    /* process name            */
  2175.       TIMEOUT    *alarmtim;        /* alarm() event        */
  2176.       short    slices;            /* number of time slices before this
  2177. *** 1.7    1993/06/25 21:14:36
  2178. --- proto.h    1993/08/13 17:27:22
  2179. ***************
  2180. *** 30,35 ****
  2181. --- 30,36 ----
  2182.   long ARGS_ON_STACK rsconf P_((int, int, int, int, int, int));
  2183.   long ARGS_ON_STACK bconmap P_((int));
  2184.   long ARGS_ON_STACK cursconf P_((int, int));
  2185. + long ARGS_ON_STACK dosound P_((const char *ptr));
  2186.   void init_xbios P_((void));
  2187.   
  2188.   /* console.c */
  2189. ***************
  2190. *** 169,174 ****
  2191. --- 170,176 ----
  2192.   void init_drive P_((int drv));
  2193.   void init_filesys P_((void));
  2194.   void load_filesys P_((void));
  2195. + void load_devdriver P_((void));
  2196.   void close_filesys P_((void));
  2197.   void ARGS_ON_STACK changedrv P_((unsigned drv));
  2198.   int disk_changed P_((int drv));
  2199. ***************
  2200. *** 216,222 ****
  2201.   long max_rsize P_((MMAP map));
  2202.   long tot_rsize P_((MMAP map, int flag));
  2203.   virtaddr alloc_region P_((MMAP map, ulong size, int mode));
  2204. ! MEMREGION *create_env P_((const char *env));
  2205.   MEMREGION *create_base P_((const char *cmd, MEMREGION *env, ulong flags, ulong prgsize));
  2206.   MEMREGION *load_region P_((const char *name, MEMREGION *env, const char *cmdlin, XATTR *x,
  2207.               MEMREGION **text, long *fp));
  2208. --- 218,224 ----
  2209.   long max_rsize P_((MMAP map));
  2210.   long tot_rsize P_((MMAP map, int flag));
  2211.   virtaddr alloc_region P_((MMAP map, ulong size, int mode));
  2212. ! MEMREGION *create_env P_((const char *env, ulong flags));
  2213.   MEMREGION *create_base P_((const char *cmd, MEMREGION *env, ulong flags, ulong prgsize));
  2214.   MEMREGION *load_region P_((const char *name, MEMREGION *env, const char *cmdlin, XATTR *x,
  2215.               MEMREGION **text, long *fp));
  2216. *** 1.7    1993/06/25 21:14:36
  2217. --- sproto.h    1993/08/12 21:41:30
  2218. ***************
  2219. *** 33,38 ****
  2220. --- 33,39 ----
  2221.   /* syscall.s */
  2222.   char * ARGS_ON_STACK lineA0 P_((void));
  2223.   void ARGS_ON_STACK call_aes P_((short **));
  2224. + long ARGS_ON_STACK call_dosound P_((const void *));
  2225.   long ARGS_ON_STACK callout P_((long, ...));
  2226.   long ARGS_ON_STACK callout1 P_((long, int));
  2227.   long ARGS_ON_STACK callout2 P_((long, int, int));
  2228. *** 1.7    1993/06/25 21:14:36
  2229. --- version.h    1993/08/12 21:20:36
  2230. ***************
  2231. *** 1,5 ****
  2232.   #define MAJ_VERSION    1
  2233. ! #define MIN_VERSION    7
  2234.   
  2235.   #ifndef MULTITOS
  2236.   #define BETA
  2237. --- 1,5 ----
  2238.   #define MAJ_VERSION    1
  2239. ! #define MIN_VERSION    9
  2240.   
  2241.   #ifndef MULTITOS
  2242.   #define BETA
  2243. *** 1.7    1993/06/25 21:14:36
  2244. --- asm.y    1993/08/10 20:46:46
  2245. ***************
  2246. *** 1,4 ****
  2247. - /* Infix notation calculator--calc */
  2248.   
  2249.   %{
  2250.   #define YYSTYPE char *
  2251. --- 1,3 ----
  2252. ***************
  2253. *** 173,181 ****
  2254.           do_define("dc.w", ".word");
  2255.           do_define("dc.b", ".byte");
  2256.       } else if (syntax == ASM) {
  2257. !         do_define("TEXT", "SECTION TEXT");
  2258. !         do_define("DATA", "SECTION DATA");
  2259. !         do_define("BSS", "SECTION BSS");
  2260.       }
  2261.   }
  2262.   
  2263. --- 172,180 ----
  2264.           do_define("dc.w", ".word");
  2265.           do_define("dc.b", ".byte");
  2266.       } else if (syntax == ASM) {
  2267. !         do_define("TEXT", "SECTION TEXT,CODE");
  2268. !         do_define("DATA", "SECTION DATA,DATA");
  2269. !         do_define("BSS", "SECTION BSS,BSS");
  2270.       }
  2271.   }
  2272.   
  2273.